home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / os2 / octa209s.zip / octave-2.09 / libs / info / index-search.c < prev    next >
C/C++ Source or Header  |  1996-11-15  |  2KB  |  59 lines
  1. /*
  2. ** *************************************************************************** 
  3. ** index-search.c:
  4. ** (c) Klaus Gebhardt, March 1994
  5. ** ****************************************************************************
  6. ** Changelog:
  7. **  -  Falls der Terminal Type "Emacs" ist wird eine Nachricht ausgegeben.
  8. **     (Keine Fehlermeldung!)
  9. **     Klaus Gebhardt, Apr 1996
  10. **  -  Wird kein Index gefunden, dann wird Info mit einer Fehlermeldung
  11. **     beendet. Dabei wird der Screen NICHT gelöscht.
  12. **     Klaus Gebhardt, Jul 1994
  13. **  -  Die Funktion external_info_session () wird von Octave benötigt.
  14. **     Klaus Gebhardt, May 1995
  15. ** ****************************************************************************
  16. */
  17.  
  18. #include "info.h"
  19.  
  20. int external_info_search_P = 0;
  21.  
  22. void initialize_info_session_without_clear_screen ();
  23. char *getenv ();
  24.  
  25. int external_info_search (initial_node, force,
  26.               info_file, index_search_string)
  27.      NODE *initial_node;
  28.      int force;
  29.      char *info_file;
  30.      char *index_search_string;
  31. {
  32.   char *term_name;
  33.   int i;
  34.   external_info_search_P = 1;
  35.  
  36.   if (stricmp (getenv ("TERM"), "emacs"))
  37.     {
  38.       initialize_info_session_without_clear_screen (initial_node);
  39.  
  40.       if (force || index_entry_exists (windows, index_search_string))
  41.     {
  42.       terminal_clear_screen ();
  43.       terminal_prep_terminal ();
  44.       display_update_display (windows);
  45.       info_last_executed_command = 0;
  46.       if (! force)  do_info_index_search (windows, 0, index_search_string);
  47.       external_info_search_P = 0;
  48.       return 1;
  49.     }
  50.       else  return 0;
  51.     }
  52.   else
  53.     {
  54.       fprintf (stderr, "*** Starting Emacs info browser (%s): %s ***\n",
  55.            info_file, index_search_string);
  56.       return -1;
  57.     }
  58. }
  59.